ai giúp tôi với
Viết chương trình vẽ hình chữ nhật có mẫu như sau:
*******
*******
*******
sử dụng chọn lọc for...do
Nhập a,b là hai cạnh của hình chữ nhật viết chương trình vẽ ra màn hình các hình chữ nhật có kích thước lần lượt là a*b,2a*2b,3a*3b(sử dụng thủ tục vẽ hcn)
uses crt;
var a,b:integer;
{---------------ve-hinh-chu-nhat---------------------}
procedure ve(x,y:integer);
var i,j:integer;
begin
for i:=1 to x do
begin
for j:=1 to y do
write('*');
writeln;
end;
end;
{------------------chuong-trinh-chinh---------------}
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
ve(a,b);
writeln;
ve(2*a,2*b);
writeln;
ve(3*a,3*b);
readln;
end;
Viết chương trình nhập từ bàn phím chiều dài và chiều rộng của 1 hình chữ nhật. Vẽ trên màn hình hình chữ nhật đó bằng các ngôi sao '*' Yêu cầu: có sử dụng chương trình con
Ví dụ: Nhập chiều dài 7,chiều rộng 4. In kết quả trên màn hình
Uses crt;
Var dai,rong:integer;
Procedure Nhap(Var dai:integer;rong:integer);
Begin
Write('Chieu dai: ');readln(dai);
Write('Chieu rong: ');readln(rong);
End;
Procedure Ve(var dai:integer;rong:integer);
var i,j:integer;
Begin
for i:= 1 to dai do write('*');writeln;
For i:= 1 to rong-2 do
Begin
Write('*');
for j:=1 to dai-2 do write(' ');
writeln('*');
end;
for i:= 1 to dai do write('*');
End;
Begin
clrscr;
Nhap(dai,rong);
Ve(dai,rong);
readln;
End.
uses crt;
var a,b:integer;
{-----------------chuong-trinh-con--------------------}
procedure ve(x,y:integer);
var i,j:integer;
begin
for i:=1 to x do
begin
for j:=1 to y do
write('*');
writeln;
end;
end;
{----------------------chuong-trinh-chinh----------------------}
begin
clrscr;
write('Dai='); readln(a);
write('Rong='); readln(b);
ve(a,b);
readln;
end.
[ Em hãy viết đoạn chương trình sử dụng vòng lặp For...do để in ra màn hình 10 chữ O ]
Bạn nào giúp mik đc ko, mai mik thi rồi
refer
uses crt;
var i: integer;
begin
clrscr;
for i:= 1 to 10 do
begin writeln ( ' O ' ) end;
readln
end.
tham khảo
uses crt;
var i: integer;
begin
clrscr;
for i:= 1 to 10 do
begin writeln ( ' O ' ) end;
readln
end.
Tham khảo
refer
uses crt;
var i: integer;
begin
clrscr;
for i:= 1 to 10 do
begin writeln ( ' O ' ) end;
readln
end.
sử dụng vòng lặp for do viết chương trình in ra màn hình, hình vuông sau
****
****
****
****
uses crt;
var i,j:integer;
begin
clrscr;
for i:=1 to 4 do
begin
for j:=1 to 4 do
write('*');
writeln;
end;
readln;
end.
Hãy viết chương trình ( có sử dụng chương trình con) để tính và xuất ra màn hình chu vi và diện tính hình chữ nhật với chiều dài và chiều rộng là số nguyên bất kì do người dùng nhập vào ?
uses crt;
var a,b:integer;
{-----------------chuong-trinh-con-tinh-chu-vi----------------------------------}
function cv(x,y:integer):integer;
begin
cv:=x+y;
end;
{-------------------chuong-trinh-con-tinh-dien-tich-----------------------------}
function dt(x,y:integer):integer;
begin
dt:=x*y;
end;
{-------------------------chuong-trinh-chinh-------------------------}
begin
clrscr;
write('Nhap chieu dai:'); readln(a);
write('Nhap chieu rong:'); readln(b);
writeln('Chu vi la: ',cv(a,b));
writeln('Dien tich la: ',dt(a,b));
readln;
end.
Giúp mình với ạ: Sử dụng câu lệnh for...to...do viết chương trình tính tổng sau
Lưu ý: Viết cả chương trình
var i,n:integer;
s:real;
begin
write('Nhap n = ');readln(n);
for i:=1 to n do
s:=s+1/(3*i+2);
write('Tong la ',s:10:2);
readln;
end.
viết chương trình nhập vào 2 cạnh của hình chữ nhật. tính chu vi,diện tích hình chữ nhật và thông báo ra màn hình . yêu cầu sử dụng chương trình con tính chu vi,diện tích.
Tham khảo
program hcn;
uses crt;
var d,r,dt:longint;
cv:real;
begin
write('nhap chieu dai va chieu rong cua hcn:');
readln(d,r);
cv:=(d+r)*2;
dt:=d*r;
writeln(' chu vi hcn do la:',cv);
writeln(' dien tich hcn do la:',dt);
readln
end.
Program mun;
Uses crt;
Var i:integer;
Begin
For i:=1 to 10 do write ('2 × ', i,' = ', 2*i);
Readln;
End.
P/s: Ko chắc ạ!
uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 10 do
writeln('2*',i,'=',2*i);
readln;
end.
viết chương trình sử dụng hàm tính diện tích hình vuông và hình chữ nhật ạ
# Hàm tính diện tích hình vuông
def dien_tich_hinh_vuong(canh):
dien_tich = canh ** 2
return dien_tich
# Hàm tính diện tích hình chữ nhật
def dien_tich_hinh_chu_nhat(dai, rong):
dien_tich = dai * rong
return dien_tich
# Kiểm tra và in kết quả
canh = float(input("Nhập vào cạnh hình vuông: "))
dai = float(input("Nhập vào độ dài hình chữ nhật: "))
rong = float(input("Nhập vào chiều rộng hình chữ nhật: "))
if canh <= 0 or dai <= 0 or rong <= 0:
print("Kích thước không hợp lệ!")
else:
dien_tich_hv = dien_tich_hinh_vuong(canh)
dien_tich_hcn = dien_tich_hinh_chu_nhat(dai, rong)
print("Diện tích hình vuông là: ", dien_tich_hv)
print("Diện tích hình chữ nhật là: ", dien_tich_hcn)